home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d27 / dspdbd.arc / DSPDBD1.CLP < prev    next >
Text File  |  1991-12-04  |  926b  |  30 lines
  1.  DSPDBD1:    PGM        PARM(&FILE &OUTPUT)
  2.              DCL        &FILE *CHAR 20
  3.              DCL        &OUTPUT *LGL 1
  4.              MONMSG     MSGID(CPF0000) EXEC(GOTO RCVMSG)
  5.  
  6.              DSPFD      FILE(%SST(&FILE 01 10).%SST(&FILE 11 10)) +
  7.                           TYPE(*MBR) OUTPUT(*NONE) FILEATR(*PHY *LGL) +
  8.                           OUTFILE(VTOC.QTEMP)
  9.              IF         (*NOT &OUTPUT) DO
  10.                OVRPRTF    FILE(DSPDBDP) HOLD(*YES)
  11.              ENDDO
  12.  
  13.              OVRDBF     FILE(QAFDMBR) TOFILE(VTOC.QTEMP) SEQONLY(*YES +
  14.                           96)
  15.  
  16.  CALL:       CALL       PGM(DSPDBD2)
  17.  
  18.              DLTF       VTOC.QTEMP
  19.  
  20.  OUTPUT:     IF         (*NOT &OUTPUT) DO
  21.                DSPSPLF    QPRINT SPLNBR(*LAST)
  22.                CNLSPLF    QPRINT SPLNBR(*LAST)
  23.              ENDDO
  24.  
  25.              GOTO       ENDPGM
  26.  
  27.  RCVMSG:     CALL       MSGFWD
  28.  
  29.  ENDPGM:     ENDPGM
  30.